﻿Imports Capa_de_Acceso_a_Datos

Public Class frmCierrePresentacion

    Public PresentacionId As Integer
    Public ObraSocialXPlan As String
    Public Mes As String
    Public Ano As String
    Public Farmacia As String
    Public Direccion As String
    Public Localidad As String
    Public Provincia As String
    Public Recetas As Integer
    Public Facturado As Double
    Public ACargo As Double
    Public Bonificacion As Double
    Public PantallaLlamada As String = ""

    Private Sub frmCierrePresentacion_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        Me.Dispose()
    End Sub

    Private Sub CrearCaratulaIntermedia(ByVal Bonificacion As Double)
        Dim Fecha As Date = Date.Now
        CaratulaPresentacionDAO.insertarCaratulaPresentacion(Fecha, frmConsultarPresentaciones.totales(0), frmConsultarPresentaciones.totales(1), Bonificacion, frmConsultarPresentaciones.totales(2), PresentacionId, 2)
    End Sub

    Private Sub btnSalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSalir.Click
        Me.Dispose()
    End Sub

    Private Sub frmCierrePresentacion_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        'Reporte
        Dim reporte As New rptCierreFarmacia

        'Cargo los parámetros del reporte y luego lo muestro
        reporte.SetParameterValue("ObraSocialXPlan", ObraSocialXPlan)
        reporte.SetParameterValue("Mes", Mes)
        reporte.SetParameterValue("Ano", Ano)
        reporte.SetParameterValue("Farmacia", Farmacia)
        reporte.SetParameterValue("Recetas", Recetas)
        reporte.SetParameterValue("Facturado", Facturado)
        reporte.SetParameterValue("ACargo", ACargo)
        reporte.SetParameterValue("Direccion", "General Paz 100")
        reporte.SetParameterValue("Localidad", "Córdoba")
        reporte.SetParameterValue("Provincia", "Córdoba")

        Dim Bonificar As Double = (ACargo * Bonificacion) / 100
        reporte.SetParameterValue("Bonificacion", Bonificar)

        Dim Neto As Double = ACargo - ((ACargo * Bonificacion) / 100)
        reporte.SetParameterValue("Neto", Neto)


        'Si no se llama desde la carga de carátulas
        If Not PantallaLlamada.CompareTo("frmCargaCaratulas") = 0 Then
            'Creo la carátula intermedia
            CrearCaratulaIntermedia(Bonificacion)
        End If
        PantallaLlamada = ""
        'Lo muestro con el visor
        crvCierrePresentacion.ReportSource = reporte
        crvCierrePresentacion.Zoom(60)
    End Sub
End Class